home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 28
/
Tiger_Disk_028_19xx_Tiger-Crew-Disk_de_Side_A.d64
/
si.ba. fractal 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
364b
|
11 lines
5 D1,0:D0,0:D7,10,9:xm=105:ym=105
6 xc=.77:yc=.6:t=22:s=40
7 xl=-1.4:xr=1.4:yo=-.9:yu=1.2
8 dx=(xr-xl)/xm:dy=(yu-yo)/ym
9 forn=0toym:y1=yo+n*dy:form=0toxm:x=xl+m*dx:y=y1:k=0
10 x2=x*x:y2=y*y:y=2*x*y-yc:x=x2-y2-xc:k=k+1:if(k<t)and(x2+y2<s)then10
11 u=m+53-n/2:u1=u+1:v=n+80:v1=v-3*(k-1)
12 D u,v,u,v1,3:D u1,v,u1,v1,2:D u,v1,u1,v1,1
13 next:next
14 wait198,255